home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
kboot20.d64
/
proc.comal-802
< prev
next >
Wrap
Text File
|
2009-01-23
|
2KB
|
101 lines
0010 // ┴┬-╙╧╞╘ V. ┴╬─┼╥╙ ┬┼╥╟═┴╬╬.
0020 //
0030 // ╘┼╠.: ─╦ 09-291277
0040 //
0050 // MPS802 DUMP
0060 //
0070 // BY ┴LLAN ╚0╠├╚┼╬ OKT. 1984.
0080 //
0090 ─╔═ SCREEN$(1:1000) ╧╞ 8
0100 FORKLARING
0110
0120 ╞╒╬├ BACKCOLOR
0130 ╥┼╘╒╥╬ ╨┼┼╦($D021) ┬╔╘┴╬─ $0F
0140 ┼╬─╞╒╬├ BACKCOLOR
0150
0160 ╨╥╧├ DUMPFULL
0170 ╘╔═┼ 0
0180 WINDOW(0,319,0,199)
0190 VIEWPORT(0,319,0,199)
0200 DUMP(BACKCOLOR,SCREEN$())
0210 WINDOW(-160,159,-100,99)
0220 UDSKRIV
0230 ┼╬─╨╥╧├ DUMPFULL
0240
0250 ╨╥╧├ DUMP(BC,╥┼╞ SCREEN$()) ├╠╧╙┼─
0260 ╔═╨╧╥╘ GETCOLOR,WINDOW
0270 //
0280 // ─UMP-ROUTINE FOR ═╨╙-802
0290 //
0300 // BC : BACKGROUND COLOR
0310 //
0320 //
0330 ─╔═ TEGN$ ╧╞ 8
0340 ╘╥┴╨ ┼╙├-
0350 ╘╥┴╨
0360 INX#:=1
0370 ╞╧╥ Y1#:=192 ╘╧ 0 ╙╘┼╨ -8 ─╧
0380 SCANLINE(Y1#)
0390 ┼╬─╞╧╥ Y1#
0400 ╚┴╬─╠┼╥
0410 ╔╞ ┼╥╥<>0 ╘╚┼╬ ╨╥╔╬╘ ┼╥╥╘┼╪╘$
0420 ┼╬─╘╥┴╨
0430 ╘╥┴╨ ┼╙├+
0440
0450 ╨╥╧├ SCANLINE(Y#)
0460 ╞╧╥ C#:=0 ╘╧ 319 ╙╘┼╨ 8 ─╧
0470 TEGN$:=""
0480 ╞╧╥ X#:=0 ╘╧ 7 ─╧
0490 V#:=0
0500 ╞╧╥ Y2#:=0 ╘╧ 7 ─╧
0510 ╔╞ GETCOLOR(C#+X#,Y#+Y2#)<>BC ╘╚┼╬
0520 V#:=V#+(2^Y2#)
0530 ┼╬─╔╞
0540 ┼╬─╞╧╥ Y2#
0550 TEGN$:=TEGN$+├╚╥$(V#)
0560 ┼╬─╞╧╥ X#
0570 SCREEN$(INX#):=TEGN$
0580 INX#:+1
0590 ┼╬─╞╧╥ C#
0600
0610 ╔╞ ┼╙├ ╘╚┼╬ ╥┼╨╧╥╘
0620 ┼╬─╨╥╧├ SCANLINE
0630 ┼╬─╨╥╧├ DUMP
0640 //
0650 //
0660 // UDSKRIVNING
0670 //
0680 //
0690 ╨╥╧├ UDSKRIV
0700 ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
0710
0720
0730 ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
0740 ╧╨┼╬ ╞╔╠┼ 6,"U4:/S6",╫╥╔╘┼
0750 ╨╥╔╬╘ ╞╔╠┼ 6: ├╚╥$(20),
0760 ├╠╧╙┼ ╞╔╠┼ 6
0770 ╧╨┼╬ ╞╔╠┼ 5,"U4:/S5",╫╥╔╘┼
0780 ╞╧╥ X:=1 ╘╧ 25 ─╧
0790 ╞╧╥ I:=1 ╘╧ 40 ─╧
0800 ╨╥╔╬╘ ╞╔╠┼ 5: SCREEN$((X-1)*40+I),
0810 ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
0820 ╨╥╔╬╘ ╘┴┬(I);""254"",""141"",
0830 ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
0840 ┼╬─╞╧╥ I
0850 ╙┼╠┼├╘ ╧╒╘╨╒╘ "LP:"
0860 ╨╥╔╬╘ ""13"",
0870 ┼╬─╞╧╥ X
0880 ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
0890 ┼╬─╨╥╧├ UDSKRIV
0900 //
0910 // FORKLARING
0920 //
0930 ╨╥╧├ FORKLARING
0940 ╨┴╟┼
0950 ╨╥╔╬╘ "─ETTE PROGRAM FLETTES SAMMEN MED"
0960 ╨╥╔╬╘ "GRAFIKPROGRAMMET."
0970 ╨╥╔╬╘ "╟RAFIKSK[RMEN UDSKRIVES VED KALD AF "
0980 ╨╥╔╬╘ "PROCEDUREN ─╒═╨╞╒╠╠."
0990 ┼╬─╨╥╧├ FORKLARING
1000 DUMPFULL